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Unclassified 


FOREWORD 


This  is  the  sixth  report  in  the  Data  Reduction  Program  Documentation 
series.  It  if  .ated  according  to  the  date  of  completion  of  the  documentation.  No 
implication  is  made  that  this  program  will  not  subsequently  be  modified,  amended,  or 
superseded;  on  the  contrary,  the  history  of  radar  data  processing  is  one  of  continuous 
evolution  of  techniques,  and  it  is  unrealistic  to  assume  that  steady -state  has  been 
reached.  The  PA -229  series  is  being  published  for  the  convenience  of  interested 
parties,  and  Lincoln  assumes  no  responsibility  for  the  correctness  of  the  information 
presented,  nor  for  its  currency. 

The  preparation  of  reports  in  this  series  is  under  the  Editorship  of  Charles  R. 
Bemdtson  of  Lincoln,  and  of  D.  Nessman  and  R.  French  of  Philco-Ford  Corporation. 
Inquiries,  suggestions,  corrections,  criticisms,  and  requests  for  additional  copies 
should  be  directed  to  C.  R.  Bemdtson. 

The  principal  contributor  to  this  report  was  J.  R.  Cornelius  (Philco-Ford). 
Due  to  the  intricate,  evolutionary  manner  in  which  the  programs  came  into  being, 
the  editors  regret  that  it  is  in  general  impossible  to  give  due  credit  to  all  -- 
mathematicians  or  radar  analysts  or  programmers  —  who  contributed  to  the 
definition  and  writing  of  the  programs. 
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COMMON  SYMBOLS  AND  ABBREVIATIONS 

■ 

(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 

quantities, 

unless  otherwise  noted. ) 

ADT 

ALCOR  Data  Tape 

* 

Alt 

Altitude  (km) 

APS 

Average  Pulse  Shape 

ARS 

ALTAIR  Recording  System 

• 

Avg 

Average,  Averaging 

Az 

Azimuth  (deg) 

i 

CADJ 

Adjusted  Calibration  Constant  (db) 

C -band 

ALCOR  frequency,  5664  MHz  (NB)  and  5667  MHz  (WB) 

El 

Elevation  (deg) 

EOF 

End  of  File 

GMT 

Greenwich  Mean  Time 

h 

Hours 

Hz 

Hertz 

in 

Inches 

LC 

Left  Circular  Polarization 

i 

min 

Minutes 

NB 

Narrow  Band 

NRTPOD 

Non -real  Time  Precision  Orbit  Determination  Program 

POD 

Project  PRESS  Operation  and  Data  Summary  Report 

Phase 

Presented  in  deg 

;l': 

PRF 

Pulse  Repetition  Frequency  (pps) 

PRI 

Pulse  Repetition  Interval  (s) 

pps 

Pulses  per  second 

; 

B 

pts 

Points 

». 

R 

Range  (km) 

R 

Range  Rate  (km/s) 

rad 

Radians 

RC 

Right  Circular  Polarization 

RCS 

Radar  Cross  Section  (dbsm) 

s 

Seconds 

SD 

Standard  Deviation  of  Wake  Velocity 

H 

w 

\r 

I 

V 

T 

TAL 

UHF 

V 

Vd 

Vw 

VHF 

WB 

9 

\ 

* 


Time 

Time  After  Launch  (s) 

ALTAIR  Frequency;  415  MHz 
Velocity 

Doppler  Velocity 
Mean  Wake  Velocity 
ALTAIR  Frequency;  155.5  MHz 
Wide  Band 

Total  Off-axis  Angle  (deg) 

Wavelength 

Denotes  Multiplication 
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FLOW  DIAGRAM  SYMBOLS 


PROCESS,  ANNOTATION 


dJ 


TERMINATOR 


SUBROUTINE:  where  NAME  1«  the  entry 
cell  into  the  tub  routine 


CONNECTOR:  where  P  epeclllee  a  page  in  the 

flow  diagram,  and  L  deelgnatee 
a  statement  number  in  the  program 
listing  or  a  reference  point  in  the 
flow  diagram 

CONNECTOR:  where  X  implies  a  continuation 
of  the  diagram  to  the  next  page 


INPUT /OUTPUT  OPERATION 


MAGNETIC  TAPE 


PUNCHED  CARD 


DISK 
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ALTFENCE 


I. 


PURPOSE  AND  UTILIZATION 


Source  of  Data 


ALTAIR 


B.  Data  Input 
ALTAIR  transcription  tape 

C.  ^  -Ascription 

ALTFENCE  produces  a  chaff  cloud  profile,  and  computes  the  integrated 


f  a  chaff  cloud.  • 

D.  Output 

1 .  Listing  of  computed  quantities. 


K 


2.  Plots  vs  relative  range  of  average  RCS  and  integrated  RCS  (m  ). 


- — ^  fl  a  JLaA  ^ 


YW-' 


% 


II. 


DESCRIPTION 


ALTFENCE  computes  the  average  RCS  in  each  gate.  The  average  RCS  is 
then  olotted  vs  relative  range.  The  relative  range  is  set  equal  to  zero  at  the  first 
gate  in  the  request,  and  the  range  for  subsequent  gates  is  computed  using  the  following 
relationship: 

k 

G  (gate-to -gate  width  (m)  )  =  150  (A  x  2  ) 
where  A  (gate  width  for  contiguous  samples)  = 

0. 2  |jls  for  VHF  data 
0. 1  ms  for  UHF  data 
k  =  sample  spacing 

2 

The  integrated  RCS*  is  computed  by  summing  the  RCS  (m  )  in  relative  range 
segments  equivalent  to  the  width  (W)  of  the  return  pulse  at  the  3-db  points.  **  The 
equation  for  integrated  RCS  is  then: 

n 

Integrated  RCS  "  ^  RCS  0) 

j  *  1 

where  G  =  gate -to -gate  spacing  (m) 

W  =  pulse  width  (m) 

2 

RCS  0)  =  RCS  in  j-th  gate  (m  ) 

n  =  total  no.  of  gates  processed 

If  desired,  it  is  possible  to  have  the  noise  removed  by  selecting  a  gate 

(usually  the  first  or  last  gate  in  the  request)  that  contains  only  noise.  The  noise 

2  2 
level  (m  )  is  computed  for  this  gate  and  subtracted  from  the  RCS  (m  )  in  each  gate 

2 

before  summing.  The  integrated  RCS  (m  )  is  then  plotted  vs  relative  range. 


♦Listed  and  plotted  as  a  function  of  relative  range. 

**The  return  pulse  shape  is  measured  at  periodic  intervals.  At  present,  W  is  30  m  at 
VHF  and  15  m  at  UHF. 


2 


The  data  cards  are  not  checked  for  validity.  Subroutine  ALREAD2  makes  a 
number  of  checks  on  transcription  tape  parameters.  For  some  errors  (missing 
format  tables;  end  of  file;  target  no. ,  sampling  pattern,  or  polarization  not  on  tape) 
information  is  returned  to  main  program  for  decision  to  terminate. 


I 


> 
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III. 


OPERATION 


A. 


Input 

Start  time  (GMT) 

Specified  set  of  range  gates 

Target  and  sampling  pattern  numbers 

Polarization 

Noise  removal  gcte 

Averaging  interval 


A  sample  input  is  shown  in  Appendix  A. 

CARD  i  (15A4) 


(Col. ) 

• 

1-16 

Label  for  plots  and  listing 

17-60 

Additional  labels  for  listings 

CARD  2  (213, 

2F7.3,  615) 

2-  3 

IH  (13)  ) 

5-  6 

IM  (13)  ( 

Start  time  (GMT)  in  h,  min,  and  s 

7-13 

ZSEC  (F7. 3)  j 

14-20 

TINC 

Averaging  interval  (s)  (F7.3) 

21-25 

NRG 

Number  of  range  gates  (15) 

26-30 

ITARG* 

Target  no.  (15) 

31-35 

IPAT** 

Sampling  pattern  in  which  initial  gate  is  located 

36-40 

IPOL 

Data  channel:  1  =  LC;  2  =  RC;  3  =  Az  error  ^  ; 

4  =  El  error t  (15) 

41-45 

NOIGAT 

Location,  relative  to  ING,  of  noise  removal  gate, 
If  NOIGAT  =  0,  noise  not  subtracted.  (15) 

46-50 

INGtt 

Location  within  IPAT  of  initial  gate  (15) 

•Also  called  INTARG. 

•♦Also  called  INPAT. 
tVHF  transcriptions  only. 

1 1  Also  called  ISG  and  ISTGAT. 


i 


4 


4 


B. 


Output 


LISTING 


First  data  card  giving  label 
Start  and  stop  times  (GMT) 

Averaging  interval  (s) 

R 

NRG 

Frequency  and  polarization 
Target  no. 

R  (relative  to  initial  gate  requested)  ) 

Average  RCS  \  For  each  gate 

Integrated  RCS  (m2)  j 

PLOTS 


Average  RCS  vs  relative  range 

(The  ordinate  ranges  from  +40  to  -60  dbsm  at  20  db/in. 
The  abscissa  is  selected  by  the  program.) 

Integrated  RCS  (m2)  vs  relative  range 

(Both  scales  are  selected  by  the  program.) 


Sample  outputs  are  shown  in  Appendix  B. 
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IV. 


PROGRAM  LIMITATIONS 


The  re4dested  gates  must  be  equally  spaced  for  valid  results.  This  is  not 
checked  by  the  program.  * 


Start  time 

Must  be  on  tape 

NRG 

<120  gates 

TAVG 

If  entire  averaging  interval  is  not  on 
tape,  program  uses  data  to  end  of 

tape 

ITARG 

Must  be  on  tape 

NOIGAT 

<  NRG 

Length  of  run 

Limited  only  by  length  of  tape 
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V. 


PROGRAMMING 


A.  CHAFEN  (see  Appendices  C  and  D. ) 

CHAFEN  is  the  control  section  of  ALTFENCE.  CHAFEN  reads  the 
input  cards,  calls  ALREAD  and  TSPLIT,  averages  the  data  returned,  a* id  computes  the 
integrated  RCS.  CHAFEN  also  calls  the  plot  routines  and  prints  the  data. 

B.  ALREAD2 

ALREAD  is  the  Fortran  driver  for  the  machine  language  tape  reading 

routines. 

The  call  statement  is  ALREAD  (TSTART,  TSTOP,  TLIFT,  INTARG, 
INPAT,  I  POL,  NOPHA,  NPTS,  DFPG,  NEWPAS,  NRG,  ISTGAT). 

INPUT 

TSTART  Start  time  of  processing  (GMT  total  seconds) 

TSTOP  End  time  of  processing  (GMT  total  seconds) 

INTARG  Target  number  to  be  processed 

IPAT*  Sampling  pattern  in  which  initial  gate  is  located 

NRG  Number  of  range  gates  to  be  processed 

ISTGAT**  Location  within  INPAT  of  initial  gate  wanted 

NOPHA  1  (only  RCS  data  wanted) 

IPOL  Data  channel:  1  =  LC;  2  =  RC; 

3  =  Az  error;  4  =  El  error 


*Also  called  INPAT. 

**Also  called  ING  or  ISG. 


INPUT  AND  OUTPUT  PARAMETERS 


NPTS* 


NEWPAS** 


TLIFT 

DFPG 


Output:  number  of  pulses  of  data  returned 

Input:  must  be  initialized  by  calling  program 

before  each  call  to  ALREAD 

Cycle  and  error  pointer 
OUTPUT 

Lift-off  time  (GMT  total  seconds) 

Frequency  and  polarization  (e.g.  VHF  LC) 


C.  TSPLIT  (see  Appendix  E. ) 

TSPLIT  is  used  to  convert  time  from  GMT  total  seconds  to  h,  min,  s, 
and  decimal  fractions  of  s . 


The  call  statement  is  TSPLIT  (AVGTM,  IHM,  TRUN). 

INPUT 

AVGTM  GMT  total  seconds 

OUTPUT 

IHM  (1)  Hours 

IHM  (2)  Minutes 

TRIJN  Seconds  and  decimal  fractions  of  seconds 

D.  REW 

3 

REW  is  an  entry  to  subroutine  BREADS  used  to  rewind  the  tape. 


*Set  to  zero  for  first  call.  Set  to  number  of  saved  points  for  subsequent  calls. 

**Also  called  IAGAIN. 
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E. 


CHFPLT 


CHFPLT  is  the  plotting  routine. 

F.  Plotting  System  Subroutines 

They  are  REREAD,  STOIDV,  and  PLTND. 

REFERENCES 


"ALTAIR  Data  User' s  Manual",  LM-97,  Lincoln  Laboratory,  M.  I.T. 

(to  be  published),  UNCLASSIFIED. 

"Data  Reduction  Program  Documentation,  ALREAD,  (Effective:  March  1971)  , 
PA-229-3,  Lincoln  Laboratory,  M.I.T.  (17  March  1971),  UNCLASSIFIED. 

"Data  Reduction  Program  Documentation,  ALTAIR  Tape  Read  Package, 
(Effective:  April  1970)",  PA-229-1,  Lincoln  Laboratory,  M.I.T.  (17  March 
1971),  UNCLASSIFIED. 
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APPENDIX  A 
ALTFENCE  INPUT 


•y  Ti — Mpr  rM 

I  pT  0  [Q  9  |lp|  II  ||2  j  13  >ll»|l«|lT|nll9|;0|?l[a|a|>l|M|2t|;7|2»|;9|>0|3l|M|»Ii4|39|M|37lM|»>«0| 
E  jgEjH3  »l96|4T|49[49|S0|3l  |52|  l|M|»|»t|»f|M|»9|»0<«l  |tg|tiM«el«)t7|M|69|TO|7l  |T2|T3|l»|Ti|7«|TT|7»|T9Tiol 


|73|7<|73|7t|77|7B|79|B0| 


CARD  4 


0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  O'O  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

1  2  3  4  3  I  7  6  9  10  II  12  13  14  15  II  17  II  II  ?0  II  22  23  29  25  26  27  2129  ID  II  32  12  24  3911  17  M  1!  40  41  42  4!  44  49  49  47  4149  90  91  92  91  94  95  59  57  91  59  90  11  12  51  44  55  49  97  51  19  70  71  72  71  74  75  79  77  71  79  90 

r.'':  c.:':,nn  i ,  p  r.n  n  i  i  i  i 


CARD  2 


0  .  0  0  0  0  0  0  0  0  0  0  0  0  0  .  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

1  2  1  4  5  6  7  9  S  10 II  It  1)14 II It  17  11  19  20  21  22  21  24  25  26  27  21  29  30  31  32  11  14  15  36  3?  1939  4041  42 4144  45  45  47  45  4?  90  51  52  53  54  55  59  9  7  99  59  50 51 12  5314  59 II  57  95 59  70  71  72  71  74  75  76  77  71  79  10 

1  I  I  I  1 11 1 II 1 1  I  I  I ,! I  I  1 1  111  1  I  I  I  I  1  I  I  1 1C 111 lc III lc  111 1C 111  I  1  I  I  I  1  I  I  I  I  1  III  I  I  I  I  I  I  1  I  1  I  111 

2  2  2  2  222222222222222222222222222222222222222222222222222222222222222222222222222 
3  3  3  3  3  3  3  3  , ,  3  3  3  3  3  3  ,  3  3  3  3  3  3  3  „  3  1  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 
44444444444444444444444444444444444444444444444444444444444444444444444444444444 

5  5  5  5  5  5  J  .  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5 

6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  G  "  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  S  6  6  6  6  6  6  6 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  J  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  ?  7  7  7  7  7 


99  99999999999999999999999999999999999999999999999999999999999999999999999999999 

I  2  3  4  5  6  7  B  9  1011  1213  14  IS  If  17  10  19  20  21  22  23  24  25  26  27  2(  29  30  31  32  33  34  35  38  37  36  39  40  4)  42  49  44  45  4S47  4S48  SO  SI  $2  S3  54  55  56  57  5t  59  80  SI  62  S3  64  65  M  87  M  IS  70  71  72  73  74  75  71  77  76  79  00 
iim  i  sail  i  _ 
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APPENDIX  B 
ALTFENCE  OUTPUTS 


ALTAIR  FENCE  (FAFF  VERSION  DATE  20  OCTOBER 
ALTFFNCL  0,222  MH 

T I  Me  9  27  53.O00C  TC  9  2?  54.0000  AVG  INT  * 
RANGE  =  124. 8CC  63  GATES  VFF-LC  TARGET 


RG 


fi EL  RANGE  (KM)  AVG  RCS  (CBSM) 


1 

5 

9 

13 
17 
21 
5 
9 
3 
7 
41 

4  5 
49 
53 
57 
6i 
6  5 
69 
73 
77 
ei 

E5 

69 

5  3 
57 

1C  1 
1C5 
1C5 
113 
117 
121 
125 


O.C 

1.24800E-01 
2.496CCE-01 
3. 7440GE-G1 
4. 992CCF-0 1 
6. 2 4000 E- 01 
7.49800E-01 
3. 73600E-01 
9.5B400F-01 
1.12320E  00 
1.24800E  00 
1.37280E  00 
1.4976CE  00 
1.62240E  00 
1.  7472CE  00 

1. R72CCE  00 
1. 9966 CE  00 
2.1216 GE  00 
2.24640E  00 
2.37120E  00 
2. 4 9600 E  00 
2.62C80E  00 

2.  74560F  00 
2.8704CE  00 
2.99520E  00 
3. 12000 E  00 
3.24479E  00 
3.36955E  CC 
3.49439E  00 
3.61919E  00 
3.74399E  00 
3.86879E  00 


-8.94442E 

00 

-8.81619F 

CO 

-8.33819E 

CO 

-9.44241E 

CO 

-8.96278E 

00 

-9. 30261 E 

00 

-8.65647E 

00 

-9.43989E 

00 

-8.95628E 

00 

-9.35881E 

00 

-8. 57 108  E 

00 

-9.20307E 

CO 

-9.42772E 

00 

-9.10733E 

00 

-9.48244E 

00 

-9.09871E 

CO 

-8.43511 E 

CO 

8.36773E 

00 

-5.32529E 

CO 

-1.31761E 

CO 

-9, 60721E- 

-Cl 

7.72228  E- 

-01 

1.77832E 

CO 

2.76323E 

00 

7.93567H 

00 

-2.92328E 

Co 

-4.11998E 

00 

2.46535E 

00 

8.40262E 

00 

1.06748E 

CO 

-2.76017E 

CO 

-1.564C6E 

00 

1970 


l.OOPO 

8 

INT  RCS  (M**2» 

0.0 

5.96087E-03 
4.17205E-02 
4. 99 690 E- 02 
4.99690E-0? 
4.99690E-02 
4.99690E-C2 
4.99690F-C'? 
4.99690E-02 
4. 9969QE-0? 
4.99690E-02 
5.63245E-02 
5.63245E-02 
5.63245E-02 
5.63245E-02 
5.63245E-0? 
7.41318E-02 
1.06126E  Cl 
2.13851 E  01 
2.25968E  01 
2.46011E  01 
2 .731 72 E  Cl 
3.11324E  Cl 
3.60314E  Cl 
4.82792E  Cl 
5.83753E  Cl 
5.93773E  01 
6.23357E  Cl 
7.54890E  01 
8.78849E  01 
9.03080E  01 
9.18246E  01 
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AVERAGE  RCS  CDBSM) 


INTEGRATED  RCS  CM 


ALTFENCE  G222  M 


9  27  53.0000  TO  9  27  54.0000 

* 

AVG  INTERVAL  =  1.0000  TARGET  8  G3  GATES  VHF-LC 

l 


RELATIVE  RANGE  CKM) 


APPENDIX  C 

CHAFEN  PROGRAM  LISTING 


DIMENSION  AVSQM  ( 120)  ,A VXS  (120)  ,?PGCON  (2)  ,  IT  1  (2)  ,IT2  (2)  ,SPFAC  (2)  , 
130:1X5(120)  ,RELHNG(120) 

COMMON/RDCOMT/1INES (300)  ,X5  ( 1 20, 300) , R AN GE ( 300)  , ALT  (300)  ,IRGA  (120) 
1 , NFPG 

COMMON/PLOTT/Z5TP,  I  HI!  (2)  ,NRG,PLOTAG  (15)  ,DFPG(2)  ,TINC 
EQUIVALENCE  (XS(1,1)  , FELRNG  (1 ) } ,  (XS (1 , 10 1) , SUMXS  ( 1) ) 

DOUBLE  PRECISION  SEC, T 1 , T2 , TINES , TLIPT, TOTI M, TST ART ,TSTOP , ZDUH 1 , 

1 ZDUM  2, ZSEC, ZSTP 

DATA  5 PFAC,PPGCON/30.0, 15.0,30.0,15.0/ 

DATA  AV3QM/120*0.0/ 

TOTIM  (NH,NM,S£C)  -DFLOAT (60* (60*NH*NM) ) *SEC 
CALL  REREAD (99 ,540) 

IAGAIN=0 
T STOP* 0.0 
READ  (5 ,40)  PLOTAG 
40  FORMAT  (15A4) 

CALL  STOIDV (PLOTAG, 59,0) 

8  0  READ  (6, 100, END* 1300)  IH  ,  Id  ,  ZSEC,TI  NC  ,  NRG  ,  ITA  RG  ,  IPAT  ,  IPOL,  NOIG  AT,  IN  G 
1.10  FORMAT  (213, 2F7. 3, 615) 

T31ART=TOTIH(If!,IH,ZSEC) 

IF ( (TSTAHT.GT.TSTOP)  . AND.  ( IAGAIN. NE.44) ) GO  TO  120 
CALL  REW 
IAGAIN* 1 

120  ISTO  P= ISTART+TINC 

NPT5*0 
KG  JN  r*  0 
T 1  =  T  START 

loO  CALL  ALREAD(TSTART,TSTOP,TLIFT,ITARG,IPAT,IPOL, 1 ,NPTS ,DFPG, IAGAIN, 
1  N RG,  ING) 

IF(1AGAIN.EQ.55)  GO  TO  1000 
IF (IAGAIN. EQ. 66) GO  TO  80 
IF  ( N  PT  3  .  N  E  .  0) GO  TO  190 
WRITE  (6, 180) IH,IM, ZSEC 

180  FORMAT  Cl  FOR  TIflE  =  ' , 12 , 1  3 , F 8 . 4 , •  NO  VALID  POINTS  Wc.RE  FOUND  - 
1  RUN  HAS  BEEF  ABORTED.*) 

GO  TO  700 

180  IF (KOUNT.NE.O) GO  TO  200 

AA=FLOAT  (IRGA  (2)  -IRGA(1) )  *SPFAC  (NFPG) 

CONMUL  =  RA/(2.  0*FPGCON (NFPG) ) 

FPKKM=RA/1 000.0 
T2=TSTOP 

2 J  0  DO  500  J* 1 , NPTS 

IF(f1.(jT. TIMES  (J)  )  GO  TO  500 

ROdNI=KOUNT+1 

DO  300  1*1, NRG 

AVSUM(I) = AVSQM (I)  +10.0** (XS (I, J) /10.0) 

JJO  CONTINUE 

IF  (12. GI. TIMES (J) ) GO  TO  500 

if (Kount. gt.o) go  to  600 
Call  TSPLXX(I1,IT1,ZDOH1) 

CALL  T SPLIT (T2,IT2,ZDUM2) 

WRITE (6,320) IT  1 , ZDUM1 ,IT2, ZDUB2 

320  FORMAT  (*  BETWEEN  TIMES  *,2I3,F8.4,*  AND  *,2I3,F8.4,'  THERE  IS  A 
1  TIME  GAP.') 

GO  TO  700 
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5  JO  CONTINUE 

IF  (IAGAIN.  EQ..0)  GO  TO  600 
N  PTS  =  0 
GO  TO  160 
6 .)  0  COUNT=KOUNT 

CALL  T SPLIT (TSTOP  ,IHM  ,  ZS  TP) 

WHITE (b, 620) PLOTAG,IH,IM,ZSEC,IHM,ZSTP,TINC,RA,NBG,DFPG,ITARG 
620  FORMAT  (' 1 ' // 14X, ' ALTAIR  FENCE  CHAFF  VERSION  DATE  19  MARCH  1971'/ 
1  14X, 15A4//7*, 'TIME  »,2I3,F3.4,'  TO  *,2I3,F8.4,'  AVG  INT  =  ', 
2F7.4/9X, 'RANGE  =  *,F9.3,I6,'  GATES'  ,3X,2A4,  •  TARGET  ',I2//3X, 
3'RG',15X,'REL  RANGE  (KM)  »  ,  5X  ,  •  AVG  RCS  (DBSM)',4X, 

4*  INT  RCS  (M**  2)  '  /) 

RNGRUN=-FPKKM 
SUMXS  (1) =0,0 
A  VNOIS  =  0 . 0 

IF (NOIGAT.GT.O) AVNOIS=AVSQM (NOIGAT) /COUNT 

DO  680  1=1, NRG 

KNGRUN=RNGRUN+FPKKM 

HELRNG  (I)=RNGRUN 

A  VSQM  (I)  =  AVSQfl  (I)  /COUNT 

A  V XS (I) =10.0*ALOGl0 (AVSQM(I) ) 

A  VSQM  (I)  = A VSQM  (I)  -AVNOIS 

IF (I. EQ. 1) GO  TO  640 

SUMAD  =  CONMUL*  (AVSQM(I-I)  +  A  VSQM  (I)  ) 

IF  (SUMAD.LT.  0.0)  SUMAD=0.0 

AVSQM  (1-1) =0. 0 

SUMXS  (I)  =SUMXS  (1-1)  +SUMAD 

040  WRITE  (6, 660)  IRGA  (I)  ,HELRNG(I)  ,AVXS(I)  , SUMXS  (I) 
o60  FORMAT  (15,  11X,  1P3E18.  5) 

680  CONTINUE 

AVSQM (NRG) =0.0 

CALL  CHFPLT  (R  ELRNG  , AV  XS  ,  I H  ,  IM  ,  ZS  EC,  ITABG  ,  1) 

CALL  CHFPLT (R ELRNG, SUMXS, IH,IM,ZS EC, ITARG, 2) 

700  IAGAIN-49 
GO  TO  80 
1000  CALL  PLTND 
RETURN 
END 


APPENDIX  D 

CHAFEN  FLOW  DIAGRAM 


START 


READ  RUSJ 
IDENTI- 
V  FICATIOKJ 


READ 

DATA 

CARD 


5,80 


[COMPUTE  TSTAP7 
IN  G-MT 
TOTAL 
SECONDS 


A  LASr  TI  Wy 
(READ  OR  IS 
\TAPE  ky 

\cor/ 


COMPUTE  TSTOP 
rw  GMT 
TOTAL- 
SECONDS 


REWIND^ 


SET 

COUNTERS  TO 
ZERO 
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COMPUTE 
RELATIVE  R, 

IKTWHffEpIcS&rf 


i 


PRINT  GKJEitJ 
i  RELATIVE  R,  1 
iAVG-  RCS> 
^integrated/ 

RCS(M*) 


I 


'CHFPLT 
,  PLOT  AVG-4 
VOTEGRATEPKCS 
,YS  RELATIVE  R, 
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APPENDIX  E 

TSPLIT  PROGRAM  LIFTING 


SUBROUTINE  TSPLIT (AVGTH,IHM,TRUN) 
DIMENSION  IHM  (2)  ,  DIVIDE  (2) 

DOUBLE  PRECISION  A VGTM ,TRUN 
DATA  DIVIDE/3600.,60./ 

TRUN=AVGTM 

DO  20  1=1,2 

IHM  (I)  =TRUN/DIVIDE  (I) 

TRUN=T RUN-FLOAT (IHM (I) ) *DIVIDE(I) 
20  CONTINUE 
RETURN 
END 
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